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ABSTRACT 


This Computer Program SGO05 calculates the concentrations of primary 


and secondary smoke particles in a rocket exhaust as functions of propellant 


composition and air-propellant dilution ratio. Output includes time and 


distance separation of visible secondary smoke from the rocket nozzle exit 


plane and attenuation of light beams passing through the exhaust plume. 
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I. PURPOSE OF PROGRAM 


Purpose of the program is to evaluate the conditions under which 
secondary smoke will form as solid propellant exhaust products cool by 
mixing with ambient air. The first portion of this two-part program 
determines the saturation point of the air-propellant mixture as a 
function of air:propellant dilution ratio and propellant composition, 
and the variation of liquid condensate concentration with dilution ratio. 
The second portion of the program determines the three-dimensional geometry 
of the propellant-air mixing plume, also as a function of dilution ratio. 
Combinations of the two portions of the program then permits evaluation 
of time and distance delays to the incidence of secondary smoke formation 
and calculation of the attenuation of visible light or laser signals passing 
through the plume. 


Option 0 determines temperature, H50 saturation pressure, NFRH (no 
fog relative humidity), concentration of solid and liquid condensates and 
light transmission coefficient for a series of input values of air tempera- 
ture and air:propellant dilution ratios. Other required input variables 
include propellant composition and ambient air pressure. 


Option 1 considers only the plume-air mixing geometry and determines 
time and distance delays associated with the propellant-air mixing process. 
Required input variables include motor geometry and operating pressure, 
ambient pressure and missile velocity. 


Option 2 combines the features of Options 0 and 1, yielding data of 
the incidence of secondary smoke formation and light transmission coefficient 
as a function of time and distance separations from the missile exit plane. 


Option 3 determines transmission coefficient and total transmissivity 
under a specific set of conditions existing in the AMICOM closed test facility. 
Required input includes ROOMCP, propellant weight, air temperature and relative 
humidity, transmission path length and the remainder of the variables required 

for Option 0 - except for dilution ratio which is derived from the input value 

of propellant weight. 
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II. RESTRICTIONS 
A. ERROR MESSAGES 


A. If the chemical concentration doesn't total 100.0 grams atoms + 
0.1 an error message is printed and the next case will be read. (Routine 
INPUT) (Option 0, 2 and 3). 


A.2 If the table input for plume analysis under Option 1 is exceeded 
by the linear interpolation function an error message is printed and the 
function value is set to the minimum or maximum value of the table input. 
(Routine FINTR). 


The above is also true under Option 2 except that no error 
message is printed. 


A.3 If the program cannot find the all gas-to-gas/liquid point an 
error message is printed and the program continues with the next air-propellant 
dilution ratio. (Routine SEEFOG) 


A.4 If the apparent activity of H20 is less then 0.01 or greater 
than or equal to 1.0; or the temperature of the air-propellant mixture is 
greater then 343.16K; an error flag is set (Routine CALCXX). An error 
message will be printed and the next air-propellant dilution ratio will be 
tried (Options 0 and 2). 
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INPUT DESCRIPTION 
GENERAL 
The input for this program is in card form and as many cases 
as desired may be input in one run. The input set for a single case includes: 
a title card and the namelist set of cards beginning with $INPUTD and ending 
with $END. 


A. Title Card 


The first card of each case is a title card. Any alphanumeric 
information may be input in columns 1 through 72. 


A.2 General Rules for Namelist Input 


The first character on each namelist card is always ignored. 


Thus, always begin namelist input after column one (1). 


The first character of a namelist card set must be a $ immedi- 
ately followed by the namelist name and a blank. The first 7 characters must 
be $INPUTD. The remainder of the first card and the following cards may 
contain any combination of jegal data items which are separated by commas. 
The last item of a namelist data set is a blank followed by SEND. 


Although namelist input can generally be used in any FORTRAN 
Program, users should be aware that minor differences exist between computer 
machines. 


A.3 Variable Input Names 


The following variable names can be input under namelist $INPUTD 
in this program: 


Variable 


Name Units 


Description 


Type 


IFLAG Integer None Option Flag 


gram-atoms per 
100 grams 


Kilocalories 
per 100 grams 


None 
microns 


Enter 0 for option 0 
Enter 1 for plume only option 
Enter 2 for option 2 
Enter 3 for test chamber option 


Chemical 


Chemical 
Chemical 
Chemical 
Chemical 
Chemical 
Chemical 
Chemical 
Chemical 
Chemical 
Chemical 


Chemical 
Chemical 
Chemical 
Chemical 


Concentration of Aluminum 


Concentration 
Concentration 
Concentration 
Concentration 
Concentration 
Concentration 
Concentration 
Concentration 
Concentration 
Concentration 


Concentration 
Concentration 
Concentration 
Concentration 


of 
of 
of 
of 
of 
of 


of 
of 
of 


of 
of 
of 
of 


Carbon 
Chlorine 
Fluorine 
Hydrogen 
Nitrogen 
Oxygen 
Lead 

Tin 

Zinc 
Zirconium 


Tron 
Copper 
Chromium 
Sulfur 


Propellant heat of .formation 


Ambient air pressure 


Ambient air percent relative humidity 


Solid particle diameter. 
defaults to 1.0 if value is zero. 


Program 


Variable 
Name Units Description 


DPL microns Liquid particle diameter. Program 
defaults to 1.0 if value is zero. 


A3 None Initial air-to-propellant weight 
mixture ratio. 


A4 None Step size of mixture ratio to 1000 


A5 None Step size of mixture ratio from 1000 
to final value A6 


A6 None Final air-to-propellant weight mix- 
ture ratio 


T5 Deg F Initial air temperature 


T6 Deg F Temperature increments to final 
value 17 


17 Deg F Final temperature value 


PROPWT grams Propellant weight. Required only 
for Option 3. 


PTHL meters Light transmission path. Required 
only for 0;tion 3. 


ROOMCP calories per Chamber heat capacity. Required 
Deg C only for Option 3. 


WAWPO None Initial air-to-propellant weight 
mixture ratio. Required only for 
Option 1. Program defaults to 1.25 
if value is zero under Option 2 
only. 


Multiplication factor for succeeding 
air-to-propellant weight mixture 
ratios. Required only for Cption 1. 
Program defaults to 1.1892071 if value 
is zero under Option 2 only. (1) 


Integer Number of multiplications. Program 
defaults to 40 if value is zero under 
Option 2 only. 


real inches Nozzle throat radius 
real degrees Nozzle half angle 


real None Nozzle expansion ratio, exit area to 
throat area. 


real None Theoretical optimum nozzle expansion 
ratio 


Note (1): 1.1892071 = “WS 
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Variable 


Name 


PEPA 


UJET 


TJET 


UAIR 


TAIR 


WAWGT 


TT 


CPG 


NT 


TREF 


rea] 
real 
real 
real 
real 
real 


real 


Integer 


real 


Units 
None 

feet per sec 
Deg R 

feet per sec 
Deg R 

None 

Deg R 


cal deg e 
gram” | 


None 


Deg R 
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Description 


Nozzle exit pressure calculated =: 
Ambient pressure. 


Calculated jet velocity at nozzle 
exit plane. 


Temperature of jet at nozzle exit 
plane. 


Velocity of airstream relative to 
missile. 


Ambient air temperature 


Weight fraction of air in air- 
Propellant mixture. Maximum number 
of values 20. 


Calcutated temperature at WAWGT. 
Maxiirum number of values 20. 


Shifting heat capacities at WAWGT. 
Maximum number of values 20. 


Number of values of WAWGT, TT, and 
CPG. 


Reference temperature for correct- 
ing equilibrium temperature of mix- 
tures. Program defaults to 536.7 
if value is zero. 
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Variable 
Name 


IFLAG 
AL 

CL 

F 

H 


DPL 


Required Input 


The following variable names are listed as a function of the 
option flag IFLAG: 


Input Required 
Opt 0 Opt | Opt 2 Opt 3 


1 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 
No 


2 
Yes 


-8- 


3 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
Yes 
No 
No 
No 
No 
Yes 
Yes 
Yes 


Comments 


Always required. 


Variable Input Required 
Name Opt 0 Opt i Opt 2 Opt 3 Comments 


PROPWT No No No Yes 
PTHL No No No Yes 
ROOMCP No No No Yes 
WAWPO No No No 
DWAWP No No No 
NW No No 
RT No No 
No No 
No No 
No Ne 
No No 
No No 
No No 
No No 
No No 
No No 
No No 
No No 
No No 
No No 
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IV. OUTPUT DESCRIPTION 


Kinin one i 


i A. INPUT PRINTING | 
t 


All input is printed on the first page of each case executed. 
This is followed by the printed output of the calculated values. 


B. PRINTED OUTPUT FOR OPTION 0 


a Print Title 


or 

Program 

Symbo] Units Description 

HTREL Kilocalories Heat release based on compiete combustion by 
ambient air. 

A2 None Stoichiometric air weight ratio required for 
complete combustion of all elements. 

Al None Air to propellant dilution ratio. 

T4 Degree F Final temperature. 

1s. Degree Kelvin Final temperature. 

R2 Percent No fog relative humidity. 
Percent relative humidity above which conden- 
sation should occur. 
Once R2 becomes more than 2% above the input 
ambient air humidity (Rl) condensation is 
allowed to occur until the calculated value 
R2 is within 2% of Rl, or sign changes. 

YI None H0 activity or suppression factor. 

P4 mm Partial pressure HCL gas. 

P5 mm Partial pressure HF gas. 

H0PP mm Partial pressure H0 from propellant only. 

Y1P6 mm Saturation partial pressure of HA0. 

WTFSOL None Weight fraction times 106; milligrams solid 
per kilogram air-propellant mixture. 

VFSOL None Volume fraction solid times 106; milliliters 
solids per cubic meter air-propellant mixture. 

XSCTAS n° Total cross sectional area of all solids in 
one cubic meter of volume. 

XX None Weight fraction of H50-HCL-HF gas remaining in 


the gas phase. 
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i Print Title 


| or 
>| Program 
i Symbo 1 Units Description 
a VFLIQ None Volume fraction liquid times 10°; milliliters 
3 . liquid per cubic meter air propellant mixture. 
XSCTAL me Total cross-sectional area of all liquid in one 
cubic meter of volume. 
TRFACT None Transmission coefficient (1/1, per meter). 


C. PRINTED OUTPUT FOR OPTION 1 


RN inches Nozzte exit radius. 
centimeters 

REFF inches Effective nozzle exit radius. 

XMREFF centimeters 

WAWP None Air to propellant weight ratio. 

X feet Axial distance from nozzle exit plane. 

X METER meters 

TEMP Deg R Afterburning temperature. 

TKELV Degree Kelvins 

UCUJ None Ratio of velocity of airstream to exhaust jet 
at nozzle exit. 

TIME seconds Time from nozzle exit plane to achieve mixture 
ratio. 

XV feet Distance moved by vehicle. 


SVMETR meters 
D. PRINTED OUTPUT FOR OPTION 2 


Calculations being as in Option 0 yielding a table at each air 
temperature and pressure. The air-propellant dilution ratios generated in 
this first table are stored and utilized to generate a second table as in 
Option 1, thus two tables are created at each air temperature. 


«l]- 


PRINTED OUTPUT FOR OPTION 3 


The output is again similar to Option 0. But only one air- 
propellant dilution ratio is considered which is based on the input propellant 


weight, a stored ‘chamber volume (680.), air temperature and pressure. 


The table (using Option 0 format) consists of only one or two 
lines. The first line prints all the variables with no liquid phase con- 
sidered. If the computed no fog relative humidity (R2) is more than 2 percent 
below the ambient relative humidity (Rl) a second line is printed. The vari- 
ables in the second line are with liquid condensate considered so that the 
computed no fog relative humidity is within 2 percent of the ambient relative 
humidity ABS (R2-R1) <2.0. 


One final value is printed on Option 3 for the transmissivity 
based on the input total transmission distance. 


OPERATING INSTRUCTIONS 


There are no special operating instructions required to execute this 
program. Card input unit is 5 and printed output unit is 6. Total run time 
and printed output will vary with the number of cases and the options used. 


In general, execution time per cases in less than 5 system seconds. 
(UNIVAC & CDC). 


VI. DECK SETUP 


The deck setup is as follows: 


Namelist Cards Last Case 


Title Card Last Case 


Namelist Cards First Case 


ww THtle Card First Case 


Machine Dependent Control Cards 


REFERENCES 


None. 
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FUNCTION FINTR (AAeEa2eCCeKPMAX IFLAC) 
DIMENSION AA(1). PB(L) 


APM=L 


TE (C#C#6A(1)) €0¢10010 


KP=9 
KPSKOeL 


IF (KPMAXeKB) 80420070 
TF (CC#eaG("P)) 80920.29 


FINTISAA(KI“1) + (COHBS (Kat) IS (FA ( KE) AR (MARL) ECAA( KP) OAA( P01) ) 


RE IURN 


KPRPSKPM ay 
IF (IFLAGNE.2) WRITE (6679) CC 
FINTRZAA( KOM) 


RE IURN 
SORMAT 


eN\U 


O.tSi¢d SECENAS, 


(2X%e"QANGE CF TABLE 


ace eo 
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Seetetaeeate 2RCGRAM LISTING OF SGUOS 


xx 
Y LNTVAC 1199 SERTES ELT PRPOCESSCR LEVEL wa AT 11:86:32 4 ON TUESUAY. DECEMEEF 1s, 


SUBROUTTNE HCLXY¥X (F4eTIY1) 


4 le 
| 2° G=LCG(Pu)/2.702¢ 
ze v1=0.9 
be y2=0.8 
S. Gl1=10-6NB 27990 ,4/T? 
[-- §P=11-¢l1ASe7tAAs.o/t* 
‘ Ve 10 ITF (GeLTeS2) GC TC 79 
1 Be IF (ABS(VL=.4) LT.e01) 6c T9 79 
Se V1l=V2 
10- V2Sv2-0,1 a 
ll. §1=G62 
12. T= (Vv2.FG.0.7) GC TC 20 
12. IF (ABS(V¥220.6).LT20.01) SC TD 30 
14. TE (ABS(V2-0.8).LT.0.91) GO TO 49 
15. TE (ABS(V22024).L7.0.01) FC TG §9 
l&e TE (AB@S(V2"0.3)-L7T.0.01) SC TS 60 
5 i 20 G2511.639-23807.1/7T2 
1a. G2 To 16 
1¢. %O $2511.66 227646 ,4/T? 
2Ne gr td £6 
21.6 $0 G22121.858<-7811,9/T2 
Z2e 69 Te 16 
22. £0 G7=12.180<2422,9/T? 
246 ge TQ 1A 
26. 60 G2=12.84c¢-3422 8/72 
2k 560 T4 1l¢ 
Te 790 VSVv2—-(VZ9V1)8(62"0)/(624461) 
2A-e Yi=v 


256 REIURN 


Te 


stecceo-- PACGPAM LISTING Ce SGOUs 


r 
Y ULNTV4OC 1209 SERPTES ELT PPCCESSCR LEVFL wA AT 11286:334 9” CN TLESLAYs CECEYREY Le, 


le SUGRQAUTINE INPLT (TFLAG) 
2e REAL “GaSeN 
3. COMMCN/SIANPLTXY FLEM(1ES) eCELKFYFL.R1 
Se LeNDypAS AS AAG e TS eo TE re TI eRCCYCP eFROP WT pPTEL pOPL UP 
&. COPMON JINPUTP? WwALEPRPO eC wOWP eh we RT ALEHAFEXSTI,EXPCeRPEOA,LUE Te TLE T ee 
Ee LAIR» TAI Re wAWGT(A0) e TT(20) eCPE( AN) aN Te TREF 
Te COMMON ZINPUTCS AMASSehTREL GE XTOX ew TSOL + VOLSCL eH TCA MEAS 
Be COMMON /ITITLE/S TITLE12) 
Se CIMPENSICN MAVE(LE) + EMASS(15) 6 HTCO¥R(15). EGUIVI1LS). GRAVE(1S&) 
1ne AC IMPENSICN SPVCL(1&)« CPPAOQN(15). GAS(1E) 
Lie RATS NAVE 7J*AL *,*c *e CL ,te eth ween *,? 
12-6 10 ©, °PE "eth .°2N t. '2R t.*Fe *. CU ‘<*€R 
ta 2 v's ‘/ 
LHe CATA EMASS £26.96 e126 .011 9 55 4E7 61900 L ONS 1 He MOOA1LE.00G 297, 21.12 
15- 137 Be MAIL 8 ea G5 0 844 E2601 072.065 / 
lé. PATA RT COMB £2290 2 eS oF GB yeh Shy e287 eV DeeS1.71 e bh, 
17. LAD 28 yp MSE Sy eA ee Ge Te ol TA, 225,277 SES 
la. CAtIA EQuIV DLs ere eae e pe eD ese Des eTeoMemt ee lLoUsLoeVelLeUe2eOelLeSe de® 
1S. LeleSe2ed/ 
2%6 PATA GRAVE STAID De Ve De Me DDD DDD eA 7eLe LIS eLwLIAS el. LIE 
21.6 1,430,1.001.415.,69.0/ 
29. FAIA SPYVCL FZeF®EDG ee OD eDe MoM eA eM e De DMeDA HA oD e LO4HI, 14354 oe LAS7%,,1 748, 
226 1.%9530.1121..1919.960/ 
24.6 CATA CPEROE SEB BeBe 2 odes eS So DLS ye se SFMT el e SHVLI SSeS ehSel 
286 13642612 ,80 05.86 414.1999.E2/ 
266 AAA GAS AD eDeLeDeN eS eV eI e899 See ee Oe DeA eM DeVeDAe Tee Dee WWD, 
27.6 11.U/ 
28.6 CRUIVALENCE (ELEM CLI eAL De (ELEY C2) eC de (ELE*C ZI eCLI« (ELEM(&) Fd, 
256 LOSLEM CS) sh) e (ELEM (CED eN) «© CELETOCTI «Oe (CELEM( 82 ePRle (ELEY (Ses) s 
306 2 CELEM( 20) eZN) 0 (ELEM(C LTD eZ2R)e CELE*® (LOI eFE) + CELEM( 1S) sCUle (FLEX 
aL. TCISD CR) « CELES CIS best 
396 NOPELIST /IMPUTES LTELAG SL er CoCo Fem eN eC eee eS e 2M eZee FE CU Ce Se CEL 
z2. THE ee QL ee CL o Ae AY AS DE ae TE TR aT a wAWeD Ue dwe ewe RT -ALFRA, EYES, FXEC,& 
tue STFA LUGE Te TEET LAIR pe TAIN ew dwG Te TT ea CESeN Ts TREE eMCOMCHR ORO WT PT Hi Ce 
5S 7L+up 
466 19 RFAD ($,80.E8C=270) TITLE? 
, ba CS&UL TITLEA (2) 
za. AFAC (8, INPUTO) 
S96 TS (PP eFG.3U.Nt CRP=1.0 
an. TF (CPL.E9.0.0) CFL21.9 
S16 IF C£LPCAGEhE.2) CC TE 20 
426 TE (wAWEC.ES.I9.09) wAwPC=1,.25 
4%, TE (AwAWPeEG oO.) Cede s1.l292071 
44. TE (NwWeF Gel) Nw 
ae 20 w2LTE (4.170) TRLAG’ 
4Ee aPlTS (6,120) 
476 WRITE (&.179) AL eC eCLeF om eneC eH BS eZ Ne ZR eR K ee CUeCVeS 
SA. WRITE (he1L140) AP ANAS EAE 
4S APLTE (65120) TSeTheT? 
S46 WOLlTE (Fel1AN) SLeFL oe CELRE ePOCMCP PROG WTP T HL OP eC PL 
Sis IF (IPL AG eEG ele RAIFLAG6E%.2) 66 PE 20 
BDe WRITE (40190) wAWPC eCRAWFE RT PALPRA LEX PO YE XEQ 
S3- WRITE (64190) SFEALLETeTUFTVUATP oe TALI NY 
Su WALTE (6 e209) STHTPEP eC wWAKGTIL I e TTC) eCPE( LT) elelsrert) 
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6S. 
666 
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Tle 
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7S-e 
Be 
Ale 
Ga. 
az. 
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Ba. 
B76 
aa. 
aa. 
93M. 
Bb 
33.6 
Fie 
Sue 
9«, 

She 

$7. 

OH. 

oS. 
109-6 
101. 
102. 
102, 
104. 
10S. 
196. 
107. 
10a. 
10S. 
11%. 
111i. 


PRCGRAM LISTING OF SEQQ* 


0 IF ¢(IFLAG AE <3) CALL TETLFA (1) 
IF (IFtaGeEQe1) SC TO £0 
A™ass=0,.9 
Exylex=0,0 - 
wT3SCL=0,0 
vCLSolLer,o 
wTCAP=0,0 
V¥CAS=0.0 
WTRELS=@CELEF 
oc 49 121-18 
IF (ELEM(I).FG.0.9) GO TO 44 
AMASSSAMASS+ELE™* (I) SE" ASS(T) 
MTRELSRTREL +E LEM(L) eR TCC™A(T) 
RXTOXSEXTOX+ELEM( I) #ECLIVIT) 
WTSCLewTSCLeELEY( 1) #GRIVE( TI *®EMASS(T) 
VOLSOLEVCLSCL+ELEM(T) sQRave(T) eEvaAsS(l) #s9vol(T) 
MTCAPSeTCAFS+° LEY (1) SCPEPCN(T) 
MGAS="GAS+ELFM(T)*GAS(T) 
ad CONTINUE 
IF (AGS (A*ASS<190.0).57T.%.1) SO TS 60 
wWRLTE (6490) KTREL 
£Q PF TURN 
40 wPLlTE (6.190) AaMASSs 
60 Toe 10 
70 wWPLTE (+110) 
gsTup 


AQ FORMAT (1246) 
SC FOHMAT (1KC0,* GFAT RELEASES & 278,64) 

190 FORMAT ¢°0 PROFELLOAT WETGRT ERRCR RECKHECK INPUT FCR TRIS CASE ° 
1-73) 

110 FORMAT (*O ENE CF ALL IVPUT CATA STcP *) 

L297 FORMAT (LEOeTxeLO(Lreo) oe *CHEYICSL CONCENTRATION (GRAM ATCO¥S/L9OP $- 
1AY%S) *e1A(Lre=)) 

130 FCRMAT (6X0 * ALLE INUP (AL) Sel X eh 2 Se 2X CAREOCN(C) 9 SX FBS, ate MCELS: 
TINE (CLI Te lLX eK ALS eS eX eo SELLCAIINE (EL) Te PK oF AE aMe PRYUROQGEN( MH)", aye 
STH AX a PN ITROGES IND Se AXE BSA eH Xe TOCXYGEN(C) Se SX pe Fae, AXe "LEAT (Ee) 
BEX GER TAX eM TIN( EN) Me AX eK Bese eBXeZIAC( ZN) Me SK ere Te AK P2T ICT? 
BEY UZIV Ere Te Qa PM TOCNIFE) Pe FX eHA Se eEV et CTPRPER (CLI, 2K eF9, 8,2, 
FRAOMTUM( TAI hele Fee SeAXe PSULEUL IIS) Pe 4X,Fa.F) 


180 EOMMAT (1HCeEXe "CILUTICN PATIO INITAL S2S",Fa.2e/e2ire't 
ITFPS fo 1600 AGS" oF .2e/e2lLXet*STESS TO FINAL AGS" FA Zee Al 
ZF INAL AGa"eF 2,2) 

150 SCHMAT (1H gSxe "AIP TE*PEPATLHXE (NEG F) INITAL TSE "QF Sere se 2sver. 
ETERS TES% eo FA G2 es 29Xe PEINAL TV7S",Fae?) 

160 FORMAT (1h «8Xe"FRESSLRE (MM) (eo 37K eT PLS* Fi 2 Se eEXs "RELATIVE “VE 
TyT) EF IR ALS oF L I Zee SXe(HELT CE FlevsS 
ZTON(KILCCALOSTES/SINQGF4KS) PELBFS* FLD  Fe/eeXe HEAT CARIACT TTY 
SCF LAB POOPICALCRIES/OEG C) ROCV’CPS* FLA, 3¢/6Xe*FROSELLAST +E? 
URT( GRAMS) SCROOUWTS* EL 2. 2e/EXe MATH LETTE 7 
SLGeT STEN ALIVETERS) PTRLSQeFldete/hXe (CLAMETES TF Sout 
€ PARTICLE(YICICNS) CPS. F1l2,2e/5%e*CLAMETER CF LITLI 
7 PARTICLE (MICICNS?) ‘ TPLs'eFlA.2) 

170 CRRMAT (1 0e8Xe"*ACCH CONTROL FLAG (TFLAG) ste) 

190 FORMAT (LHOeEX, PIN TTIAL VALUE CE WATR/.PRCE ~ da 
TCS’ FL2] 2 e/ eS he MLLTIPLICATICN FACTOR FCR wAITRK/KERCP Ohad 


Set eFL2 Fe eEXe (NCZZLE TROECAT RACILS(IS CHES) 
-40- 


112. 
112-6 
114. 
11¢é.5 
114.6 
117. 
tila. 
1196 
12ne 
V21. 
129-6 
122. 
1246 
128.6 
12h. 
127. 
129.6 Cc 
125. 


TIVES U,6324 


PRCGHAM LISTING CE SG0Ns 


BTS sFL2A. 204 cEXe* ROLF ANGLE (CEGREE) *Le~ 
GAs" sFLl2 30/4 ef Xe? EXPANSION RATIO cx~ 
J Fed > ey ae 2 CRTIMLH EXPANSIcM! RATIO Er~ 
éesz'.Fl2,3) 

LIP FORMAT tik 9€Xo" EXTT TC AMATENT PEESSUPFE RAITIO Sea 
LAS*eFl2 30/4 eEXe! EXTT EXHAUST YET VELOCITY(FI/SEC) Lt 
STS" eF1l2,36/eEXe!? EXTT EXHAUST TEMPERSTURE(RFEG 9) Tce 
TTS oeFL2] Ze eEXe (AIR STHEA™ VELCCITY(FT/SEC) LAs 
GR" eFL2, 2440 SXe! TEYEERATLRE(CEE ©) Ta: 


SRS" ,F12,36/56Xe*NLMBER CF VALUE FOR CALCLLATION CF WATR/WPSICE 


hws" eTl2) 


200 FORMAT (1R e2Xe*NUMBER CF VALUES I\ FOLLOWING TABLE : 
LTs'eTl2./ GX ATR TEVYPFRATLPE USEC IN CALC. OF TASLE(DEG.2) TREF= 
She 1a Sef eEXe "TABLE AIRVEXHAUST MIXTURE TEMBERATLAE(TT)(CEG,2) A 
JO "se +Ly Xe *SPECTFIC BKEST(CPG) AS A FUNCTION OF wAWGT "e/eb%eb( TAS 
GGT oebXet TT FX ae CES eX) Se (EXeM( FP eEA 2 eEPebeTZH2K))) 


evU 


SFCCNAS, 


«4}< 
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IM 
ay LNtVvAe Linn 


Se 
10+ (= 
lle 


PROGRAM 


SERTES 


10 cAkL 


20a 


CALL 
CALL 
CAuL 


LISTING cF SGetaQs 


ELT PPCCFSSCR LEVEL 


INEUT (TFILAG) 
TaAccFr (19) 
LACLF (10) 
FACCr (C2190) 


TF (IFLAG.EG.1) GC TO 20 


CALL SEFFOG (IFLAGC) 
50 Tr in 

CALL PtUME (IFLAG) 
ec TO lo 

ENO 


TrMES U.NE12 SECCNOS, 


WA AT 11:°:86:36€ A™ 


-4 


ON TLESCAYs 


crceveey 


LL LL 
nn nneEESnSEEEREEEEEEee 


| 
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j 
eo--------- PROGRAM LISTING CF SGOOf 
’ 
Lae ' 
RY LNTVAC Ling SE®TES ELT PRACESSCR LEVEL wA& AT 11286236 A“ OM TUESUAY, OFCFYSET 1 
Le SUBROUTINE PLUME (IFLAG) 
2. COMMAN /PINBUTOS WARKEO yD wWAWP NWeRTeALPHE EXER EXPO ePEPO ULE Te TUFTs 
%. VATN se TAIP, wWAWGT(20) eTT(20) 0CPG(20) eANTe PREF 
Ge COMMON /TOPT2/ KKK eAAN(1NNA), TAIRA | 
Se C PRCGRA™ TO CALCULATE Tee CENTERLINE CISTRI@UTISNS IN A ROCKET Exhal'ST 
&e C JET MIXING |ITR TRE ACUACENT AIR STREAM (NKC ANALYSIS USEC) | 
Te c | 
ce roeee wAWPQ-= INITIAL VALLE CF wATR/UERCP 
Se C s*8 ChAWP = MULTIPLICATICN FACTOR FOR SUCCEESING VALLES CF wAlI2s.P8 CP 
10° C eee WH Ss NCL CE WAITR/YPHCP VALLES TSO 26 CSED £% CALCLLATIONS 
lie C #2 RT = NOZZLE TRRCAT RACILS(INCKES) 
19-6 Co eee ALPHA = NOZZLE KALF ANGLE (TEG.) 
Lz. C eee EXYPR = NOZZLE FYFANSICN PATIC 
lue C sae FYrFO = SCETIYUM NCZZLE EXFANSTOP AaATIC (PEs/Eas1.) 
1s. C wee PFPA = CATIO OF ACZZ2LE EXIT PRESSLIE TC AMSIENT PRESSURE 
he C ame WET = SROPELLANT EXRALST YET VELCCITY AT saZZLE CALIT (FT/SEC) 
17. C sae TJET = PEOPELLANT EXRALST STATIC TEMSCERATURE AT ACZZLE EXIT(SE%, 2) 
1Ae C eee UALR = VELOCITY CF AIR STREAM (FT/SEC) 
196 C eee TALR = STATIC TEMPERATURE OF AIRSTREAY (CEG.R) 
2ne C aes TABLE CF TT SNC CPG AS FUNCTICNS CF wAwGT 
216 C wee WAWGT = WATR/ (AIR +H PRCE) 
226 C eee TT = STATIC TEMPEKATURE CE ATR/EXRAUST MIXTURE (CEG.R) 
2x6 C eee CPG = SFELCIFIC HEAT SF ATP /EXHAUST ¥“IXTLRE 
2u6 C wee TSE = AIP TEMCERATLRE LSED [N CALCULATING ABOVE TABLES (TES,2) 
2e.6 C (CIF NCT INPUTe 259.2 % (824.7 7?) IS ASSUMED) 
266 ¢ 
27. IF (IPL AG.EG.2) TAIRF=ST4[9201,a 
2%. C£95,0174832 
296 UELSSLATS/LUJET 
30. Le CTRERLE Tole! YRPEFSSIE. 7 
31e OQTATR=STAIRSTAES 
b. I ANSRTYSART(EX89) 
32, QRUNOSSGRTI(EXPR/EXPC) 
74. YEX=( Le f/RTIPCeL. STAR (AL PROBA ) 
S€% AIZL SH (PE SAaeL. pale So (FESAne%, ) ele CSE (FE SAS.) a( FLAT, Ve Lor E21 | 
the 13 
37.6 TF (SPEPA.LT.O,.991) AR=1,.9 
38 REFE SKN @AR/SONRCE 
2S6 KONNSR Ne EG 
SO. XYMREPRPSQEPF ad, Su 
Sle WRLTE (4480) RNeXMPR,RESF yp YVQESE 
42-6 wWAOLTE (6460) 
Sz, TeLUYE=SNn 
44, yOUs,U&u 
ue, 'gAwOswALPOSE WANE 
We, FO 30 NeleNw 
a7. LF (IFLAG.NE.2) GC TC 39 
SA, Le CTSLUumME.EC.1) GC Te 19 
' 4S6 LE (wAwPeLT,AAA(1)) EC TO 20 
Sn. lTrr=o 
| Ste LPLUMF SL 
) 52.6 10 Lilresffrlet 
P St IF CITT oGT KKK) GC TC £0 
| Su, wOAwWPSASA(TTIT) 


ah Je 


i o222------- PRCGPAM LISTING CF SC008 


20 LE (CISBLUYE.LEG LO) wAwPseAWwPeeQw Awe 
WAWGSnAWE/ (1, ewe ) 
CRHFIs TRICPG ewAWCT woe eNTeIFLAG) 
TEMPSEINTRITT  wAwGT se @OuGeNTeIFLAG) 
UHUZ(UCET/2.28) 82/9379, MUEUL BILE LG 22.) Be AWSR (Let wAaed) 
UTUSORL/CR 
UTA=winG*0,.24/CKRSCTAIR 


eee 


DO OW sR iA in inn 
Finer ODOM wHiA 
ee 


e 
} e [EVPSTEMS*CTL+CIS 
i F UCL US(LeeWwAWG) +e bnhGAlELY 
646 ROzOL/(4e#OLOGl leo (LELUGMLC' IS (UEUGeLe)))) 
6S. Xanseza,2eScRr(xPcsaRS(1.sUELY)) 
GEe XAFL=ZUOe®SGRT((1Le*LELCI/2.)/ABS (1. eUEUY) @XPO/S (864.9898 KS7) 
a7. CUusSGRTCILCUUSLEL LC I/2.)/A8S(UCLUSLEUY) 
BR. RAF 2ZH4O.*SGRTI(TEMESTLET) BCL EXE/( BAX. AGeYE) 
BS. RASKAN XA Ze XAFL 
7% Le (NM GTel) 20 «TC 26 
Fle AZ=(XaN/INROCHKXEX) SAR PRASL2, 
726 TIMESXZ/UUET 
72, UCZSUJET 
ue 2se 
v2, 2221. 
The AYVSUATRETIVE 
77. TKELVSTUFET/1.8 
7A, XME TEP sx2e0, 2040 
7S. RVMETR=xXV80.294a 
a9. LF (CIFLAG NE. 2.CReIPLLYE LEG 1) WRITE (6070) ZexZeXVETER, TIET. TK: 
Ale TLV ZZeTIME eXVeXVMETR 
a2.e 20 RS(XA/RNRO*XEX) BAR BAN S12, 
az. UcslCLYU SLUET 
Aue Lea=(LC+LC2)/2. 
§s. TIMESTIME SOL TG (LC/UCZ) 8 (Xe XZ)/ (LO HLCZ) 
Bho uczsuc 
AT. XZ=&k 
Aa, AVYSUATRETIVE 
AS. TKELV=TE“P/1,8 
r gon. XMETER=xX*0,79uA 
Ste AveeTO=xXven,704a 
P S2e 1F CIFLAG NE .2.CPeIPLLMELES.1) wRITE (6070) WALPeY¥ XY ETEZ .TEXE, © 
$2. LKE LV UC Ce TIME XV XVMETR 
Sue LF (IpPLUYE.ES.1) EC TC 16 
3. 4Q CONTINCTE 
Sée SQ RETURN 
37. € 
Sa. ED ENRMAT (7X eMMATRSWERCE% ¢ FX,PAXTAL TISTANCE *eGXe I" TEVYBENATLIE', MK," 
$c. LL/UGET* EXe "TIVE FROM CEX SIP TSTANCE YOVELT e2ee/2CXe "FROM EYTT SL4 
1006 ERM OZER e COXIT ee L IN EY VERTCLE Te se 2X (FFE) ("E TER) CTES.2) C- 
191-6 TELVINS) *olLSXe*(SECAAL) ae 2Vet (FEET) (ee 2X." ( 4ETER)*) 
102-6 FQ FARMAT (LK eE LEA BELO eS E19 Ue HL Fe HHS, 92,2) 
F 107. BQ COMMAT (///2XKe"MEZZLE EXTT RACIUS S*eFFatet(I*CHESI eax eE Tete (Cr; 
104. Te -QXe*EPPECTIVE ACZZLE EXIT FARILS SFT ese  CINCMES) eax el % te" 
10. 2certs7i 
194. C 
107. e''D 


TrvFs u.#040 SFEAANS, 
-44- 
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eseeeeeeos PRCGRA™ LISTING CF 


T 
Ry LNTVAC 1190 SESTtes ELT PPCCESSCF LEVEL es TUESUAY: 
5 Le SUBROUTINE RCOTIN eX elk eh er eK) 
2 c ¢ 
3. E . 
Ge Tsu 
Ss IF=1 
’ Se J= 
i 7s LL=0 
Se V"=100 
10. FS=0, 
ll. TE (MeLT.O) LLsl 
12. NZLARS(N) 
f 12. ervl=n. 
| 14. e>2=n. 
| 12. RETURN 
| lé. c 
| 17. ENTRY RECTR (Mee CXF rE eK) 
la. SSABS(E) 
| 1¢, If (APS(F).LT.9.00N18E) GO Te 20 
| 206 GO TO (10089). TF 
hk 236 19 Te (F&See tT. .0) Ge Te =9 
226 IF (Lb.EG.a) Ge Te 20 
22. IF (JeEGe1) EP1s 
' ABe © (SeER.2) ERASE 
286 TE ((SeFG eZ) eANNe (LL eb Set) AM Oe (ASS( ERI) CGTAAPS (EPL) ) eANC ee (CPISERY 
Be Leb eGeGhy LEST 
27. TF (LLL.EGe1) CxXSe€X 
28. TF (LLL.EGe1) LL2=9 
2c. Jauel 
30. 29 Izl+1 
Sie r= (f.GT.) Ga Te 70 
Z2e xS=X 
32, X=AX+EX 
zu, ecse 
% wee K=2 
$6. RETURN 
27-6 3G IF= 
ta. 1-0 
3S. GQ XMS( KBE Se KS AF) S/S (FS oF) 
Sn, 22F 
G1. TF (A@S(2)-LEeE) GC TC £0 
42. xSS=2Xx 
“Ue XYsAM 
asc, Tole? 
She Ie ¢feGT NK) Ga TC an 
U7. K22 
: wa, RE IURN 
FS £0 fF (esFe,L7T.0.°0) EC TO an 
| So. esecss 
Si. xS=xes 
‘ %2- 6° To 4n 
E Sie 60 YSXN 


Su. «=U <45- 


one erene P2CERAM LISTING ce senos 


| 
‘ ce 


Y UNTVGBE 1120¢ SERIES ELY FECCESSCR LEVEL wa OT 11°S8E:3A AM ON TUESLAY. DECEYBE? le, 


i< SUPROLUTTNG SEEFSG (IFL4G) 
2. QE AL MGASeN 
| t, COR MON ZINFUTY? BL eC eClh eK ob eN ee ASeSp e2ZNe ZI eFE Che CRe Se CELE. F1 eal 
Se LeA Seb oe AS ep BE eTE Tee TT HWCOCMESPTCPWT ETRE OFL UP 
| =. COMMON J/INEUTC/ AMASSeHTREL EXTOK e+ TSOL eVCLSOL eHTCAP.MGAS 
{ he SOMMON sICET2/ “Ke, ,S8A(109), TAPAS 
| 7. CAta C272 4272.16/ 
Ae TP aGe=0 
3. APSEXTOve14,£/21,9 
| 106 wRATE (64190) A2 
lle Ceecccoorr~r= HANGE OF AIR TEYOFRATLRES YS TE TP IM STEPS CF TE eevee 
12< TI=TS 
f 13. 19 T2S(T1l+4tS9,69)/1.2 
| 1L4e «KK =9 
, 18. wPLTE (606210) TL1eT2eFl 
Se WRITE (£4220) 
| 17. TE (T2.GE.C273) FASEXP (29, S4A4eS306.7/T2) 
| LA. I= (T2.LTeC273) PASEXP (24, O47 ALEI.O/TI) 
19. RI=SP2E(QL/1IN.CIS( FL <F2) 
P. 206 IF (TRLAG.NE.3) GC TC 20 | 
216 Ceess YOLUMPE CF AMICC™ TEST FACILITY = 680 CU FT 
22 AINVCLsead. 
F 22. ATMMASZAIRVCL O76 .E4CEMC2II/T2 
246 AL=ATRMAS/PACPT 
22. 6C Ta 3n 
26-6 Caseccesseese, ATA CLLLTICN FATIO 42 Te 486 STESS CF AY AND AUS1& ennee 
276 20 Al=A2 
2A. SINCR=Au 
296 KePasSs=0 
20 29 reass=o0 
Sle TNCGC=0 
S26 IF (IPLAG.EG.3) KFASS=2 
” 23s ATFACIS,.,09 
c4. VELIQ=C,¢ 
f 3¢. ¥SCTAL=n.0 
266 TPF acTen.co 
S7ve TP ANSMsH.0 
za, wOUPRP=l,Ze(beCL =F) 
39. KIUSUM=R2CFRE4+196 Ne A1*h1/29,0 
| S06 SPSMEASS+LIN SAL eHn1/2Se+7FeMAI/29.e2L ee #(AL HAI) /29,9 
41. #2O0PPSHACKER e81/S2 
42, P4USCL*P1/S2 
G3. SEsFer1/S2 
Sue SFIFHTCACH (ALMA) FL ce OR 7 eOA/SBS HAL EMS oe RE SKS 7S, 9 
SS. I© CIFLAGehEeS) GC TE 40 
S86 Crews CUCRRECTEC HEAT RELEASE FR CLOSED RCSM VENCUREMES T 
47. BASCS=SaePRr7eyTyvijgn,. 
SAe CONSTISEASCE/S(GASCE*ACCHCP) 
SC. BKTMELSRTREL eCONST? 
she SQ TRSeL UID DeHTRELsSesT2 
Sie TE (T36GE.C27S) FESEXKI29, FUMbeS IDE, 7/73) 
S26 TE (TSeL TeC272) PKESEXE (24, H87OELSE.O/T2) 
S36 TUS] Ber zaueS £9 
S4. x¥¥21,0 
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¥PS=ne 

xyPSsP5d 

X42ZOFR=L20EP 

CXXs0.05 

xT32T5 

HCONC=H2CSLMBLUSOT.+CL #1ECIN, HF #11400. 

CALL CALCXY (Al eRL eh 2CPR P22 eF4e PS eK So yR2eS2eTIHVLeVY2e TEC) 
IF (I160,£¢.2) GO TA 14N 

YIPS=tY1*e6 

Tol wTtAwasse(1,441) 

‘a TRSCLAUTSCLAL.OEEsSICT aT 
YVOLTCTa=e2e(T2/C272)%(760.0/P1)*22.4126 
YESOLSVCLSCL#17CO.0/VOL TCT 

¥SCTSASSYFSEL*1.E/F°F 

Ie (R]cGTeALeANKe LPASS OME LL eANT CKPASSONE.1) ge A 3 120 
Slee AIR CLLUTICR RATIC AT wrRICH ALL GAS TO GAS/LIGUIT 
If (aPASS.ES9.2) GC TO 20 

If (KPACS.FG.1) GC Te €0 

Fonst.0 

<Pass=1 

AUSAYESAL 

8xx51.6 

NMU'NSLU0 

XYX=0. 

CALL ROT (NANG XXX eCX¥ oF IIRL CEM K1) 

SO2RL=RIRWR1 

CALL ROGTS (NNA XXX OCAX VFO ARL ERR e K1) 

ALZALSAVEoXXY 

IF (“1.FG6.0) GE Tc 79 

If (¥1.E6.2) GC Tc 22 

Tevss 

«SASsz=2 

SPERINTZAL 

AL=ALSAVESAINGD 

TF (16C,E6.4) §3C¢ TO 140 

TGG=t 

s¢ tC isd 
CONTINUE 

- D2eL TR 
tf tiPass.té 
Teasssi 

IF (IFLAGSEGe3) WRITE (60240) ALe Te TIeRS V1 oP Se PE eu aCPP, YIP ey TES 
AL eVESIL eo XSCTAS se MX eVELIGeXSCTAL,TREACT 

TE (aoS(R2°P1).LE.209) GE TA 119 

T= (R20 7681) GO TE 100 

Cr¥X 509.901 

r"UGC=1 

IF CINCEC ES ce Lo ANC SFALLT.P1) SE FE 119 

YY¥SXKeCYX 
TFUX¥eESG6L 
PUSAEUeyy 
PSSxPtery 

BOUPCIXL DCR Oey 

TESYT SH (TL eMexx) @(HCCAC/SA) OCONSTI 

60 fo $5 

TES] Bar zre4ES 69 

wTLIGS(t Sor xde(bZCSLMOlL® CLlESCL e264, 468e0279,°%16) 
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55. RFE IURN 
She K="}1 
S7 RETURN 
Sa. ¢si 
SS RETURN 
606 

Ele ENU 


TIVES 0,2€20 SECCNOS. 


112 
| lis. 
115+ 
11é.- 
117. 
11a. 
119. 
1206 
T2t.e 
122+ 
122. 
L2Ue 
128.6 
126. 
127.6 
12a. 
12S. 
130-6. 
131. 
L323 
1336 
134. 
138. 
134.6 
L377 « 
L3A6 
139-6 
14M. 
1416. 
142. 
14%, 
144, 
146, 
1466 
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PRCGRAM LISTI*G CF SGrds 


WELIGSWTLIG/TOTWT 
YOLLIGsyTLIC 
VELIGSVCLLIG#1C090.0/VCL TCT 
XSCTALSYVFLIG#41,8/C°L 

120 TPracth=1.0“XSCTASexXSCTAL 
TE (TREACT.GT.9.60) Ge TO 120 
TRF ACT=H0N.O 
TRANSM=0,0 
Gc To 149 

129 TRANSPSTREACT eeP TEL 

PRINE OUTPUT 


Ceerercteccer- eee er er reste oe 


rT 
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140 T© (IGO,EG.1) wRITE (64249) 
TeV SCL e¥SCTASe YX eVFLIGC es XSCTAL +e TREACT 
TF (IGO.ES.2) “RITE (64229) Le 
IF (f6C.€@.3) «RITE (€e280 


TESOL e VESCL eXSECTAS e XX eVELIGe XSCT 


AL 


TRANS™M 


IF (I1G0,£9.%) \FITE (6+260) 
IF (TFLAG-EQ.2) wRITE (6,290) 
IF (IPLAG.EG.3) GC Te 1280 
IF (TRUAGeMEcay Ge Te JER 
Cssees=—= SAVE VALUES POP FLEXE SCUTINE LFLAG=2 
TF (KKK,EG~.100) GC Te 189 


KKK SKK Kal 
AAAI KKK) SAL 


IF (IGC.,EG.3) AAAIKKK)SAFIINT 
IF (IGO.,EG4) KKK SKK Ke 
Crasene=s= STER AIR OILUTICN RaATTC 
150 TF (8L.GE.1900,8) AINCRSAS 
ALFAL+ATACR 
IF (ALLE «AG) GO TC 20 
IF (TPLAGeNE.2) GC Te 184 


TALRAST9 
CSeb PCeEME 
CALL TITLES 


CIFLAG) 
(1) 


1€9 TF (IFLAGseNE.O) GC To 170 
TPAGESIFAGE +1 
EF ULPAGE site2) GO Te 175 
CALL TITLEA (1) 
TP agFe=o 
170 TIST1+Té¢ 
fe UTiskheet?T? 6O Te 10 
120 RETURN 
Cc 
199 FORMAT (1HOe* STOICHICVETRIC AIR PATIC *,328e6) 
299 FORMAT (1H «® TRANSMTSSIVITY S*F1ld.4e"( FOR PATR LENGTH STH 
210 SORMAT (1HOe* ATR TEMPEMATURE(TEG FlstyPSe203Xe" (CEG Kis? Fa, 
1 "PRESSURE (YM) S°,FS 62) 
220 SORMAT (LROe4X oe AL EX eT EX OPA EX e PAV SMe MYL UXe Sur, 
L'eFXs "HIECPPYS*® YIFET eSte*WTFSGL VFSCL YSCTSS ¥xX “st VEL TE 
Pal TRF ACT!) 
220 EAORMAT (LM oF7 Lee eSt lee SFE eH FE te eee NUTSICE CATA 2aVGE 
e4n Crrmeayt (1s ae et ieee a et ee eee ee ee ee oe oe ed 
s7e*} 
2£0 <9KMAT (ie «Ff a tae ee a ee se Ce eee er en aed 
17.4) 
269 FORMAT (1Xe"LNASLE TC FLAP @LL GAS TE GAS/LIGULIC FPUINT CeMTrs 
. «49 
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Se T2yP4,AS,HACPP 
APOINTe THe Te AM VL eb ePS, 


ALe THe TEyRIA6VLeP4eOSereCPP,YLHRE, 
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CPP GY1L%S eT 
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TYE? 29.7792 SECCNAS, 
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=A 
1 Y LNTVAC 110" SEQTES ELT PRCCESSCR LEVEL wa AT L13SA23S 1% CN TUESUAY. CECEvecr le, 


SUBROLTTNE TITLEA (TEC) 


le 

ae CAMPMGN LETETEES TIFLECE2) 

Ze SATA [CASE se LPAGE /9eI7 

8. Ie CECC .ES.2) Ce Te x16 

S$. 17 TPAaGF=O 

7. TCASE=IcAsSE+l 

a. 20 TPAGE=lpaGF el 

Se WALTE (6439) ICASE.IPAGE 
10. WRPLTE (4,489) TITLe 

ll. RETURN 

12. c 
13. 30 SCORMAT (1IBLelLOA(Lke)e* A RY Y “VES & 7h € cgsmvarxe r 
pr 1 RFUNTSVILLE ALASAMA # IO (LK]e) g "CASE* e L2e1L Ke "PAGE? 13) 
186 GO FORMAT (1M «20 Leo) ee L2hG e201 1H) ) 
16. Cc 
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e=mew= LISTING 'EST CASES FOR SEaRS 


EsAaRC 
NIVAC 1100 SERTES ELT PRPCCESSCR LEVEL W8 AT 122°86:240 AY ON TUESUAY, CECEMRBEP 1s, 12 


EXPLAME A TF, AG=0 


ie 
26 SINPLTO 

2, TFLAG=9 

Ge Cal eKS7E haz e271 NTS 62909 CHI BNE CEL HF SOT. 731 P1LES258. 4,4 

S. A2=19N,A42109,A821900,A6=S10000,TS=—£8,TS=9+T72-22 

ee cenc 

Pe EXFLAME B LFLAG=L 

Ae SINPLTO 

3e IFLAG=1 

106 C20 eh SU eN=SUe =O eCELKF=H0,F1=0 eAZ2N-AG29 , ASSN, A650 -TS=H0,TES0eTTI=S 

5 WAWE QED 6 CWA aPS%e pNWHlLOe RTS eS ALEHOHLS EXPRESS. -EVPOHS. tUSETSAZED, TUE TSSSCC 
12. UATR SMe TAITR SSE PewWAWGT Se ee TG eed re AS vee eGSrlee 

12. TTHIA1LG, pB4EG, ZONA s 2875401926, ,1L E08. rp TEL 7 

19. CEES HU, oF By 0 3265 F086 289, 267 ee Q4H0e WTS7 ¢ 

1S. sENC 

166 EXPLSME C IFLAG=3 

17. STVPLTS 

1a. IFLAG=3 

19. WAWECSC QW AWC=O NWA eRT=O eALPRAHN,EXPR=0 FE XEO=O UUETHOy 'VET=HO 

2ne VATRSVe IATRSM ep wWOWGTED ee Oe UeUe De Me Me PTSD ee De Dede Me De CPGSVe De TBeOeTDeAeM eM THO, 
21. C21 .8835, Hse, 9897 .CH2.9170.Na=1.9988,CL=C0.1192 

226 CELRFs-21,04 

oz, A22=0,A42=90,A8=0,46=0 

246 TES94F, + TE=1L Oe T7S249, 

2S6 PROPLTSOH2.1+¢RCOMCPSBN2F, ePTRL SS, 274 

26-6 PLS7EOU, 

27-6 sENvC 
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AT 1126249 AM 8 TUESUAYs CECEMBE? i+, 


le FE/NC79A4% BMX /AP/STYETNSFEEG GINCER TFLAG=0 

Qe SISePUTr 

3 IFLAG=Y 

ge CHL AEE  eHS2 2171 MES 28N19 192. ANED  CELEE Sal, 7T3HFLEZS8 4, 

Se AZ=10O A419 eASH1SN9,AES1LCOON TES eEa, TEI TI=227 

Re fE°R" 

Te TLSOESO4 KMX/JAP/STYETNEPEE BINCFR 

ae SINFL TE CH1.8901 -CLEeOS2€ ph SF, 2872 pNE2.1LAAY,CH2,A4lLeCELPESH11.904% sE5 
Se GE/10/24% RMX/JAP/TYETNOESCEG EIACER 

19. SIMPL TA Cale 8226 ee CL se TAEL PEF AAT NBD .C0IE9I,0S2, A762 ,CELHFSeL4, 28 SENG 
lle OOSTE S24 BMX /SAP/T¥ETNeSEG BINCER 

126 SIMPL TO CHM 6 212 CL 2.6469 HEF, PELE MEN APGI CST, TUNG, CELREESESA, 18 CENCE 
lz. TOSIE SLE BMX SAP/STYETNeESEE PIACER 

14e sTseurr 

1-6 C21.3399 CL 2.1277 eh 72 01291 NEA .1LE10+CS2.8721 CELHFS=“12,.5 

1é. Pis2ta,4% 

17. R129 

lA. AZ=100 eAVZlNn, AS21990 ,462190000 

1S. TSrHFa, 16290772222 

ane SEC 

21.6 Rew SE 233 PRAPELLANT 

226 STNPLTA C=1.64745 eH22.8P8 e“S2.078 22129089 eCL30.0+F= oF1LOeCEL RE sel®,7 
276 TE=e88, TE=1As e+ T7= 22, 

2U.6 P1= 7606 

26. see 

256 PROP RK SE 2u6 (CONTAINS CL AAP F) 

276 STNSELTFT CHleuG& eCLeel170 »eRSI.928 951.708 ,O22.08390F=.910 

286 BEURFS “2ae9 « Fs S86 

2S- SENE 

Ihe PROPELLANT Age 

31.6 SINPLTM CHlN., FOL RH] GEO] MH. S472, OCHS, E414 SAS.CO8-CLede0,Fs0,9 

S56 CFLEF= ©56.6 

23, ENC 
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1S. 
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246 
2e-6 
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TITLE PLUME TESTCASE EXAMPLE A 
STNPL TF 

WAWEQE3 6 eOWAnPH2e eX weld eR TH eS AL AHARILE EXPOSES, -EXPCH9, IVE TSAIED TIETHISOC. 
CATR eM ee PAL RSE THe Ve wARGT Se Toe Tee ede oA nee ge SSntae 

TTHIALH, - SHEE, ZONE gy pA47PE et lLIPG eel TOS ee SIG. 7e 

CEGS4U3, oe ZU o BIG 0 F528 FAT ee 240 ee 

If LAG=1 

SENc 

TITLE SFLUME TFESTCASE EXAMPLE 8 

STUSE TO 

WAwFCate2SeOVAwP=l.sLAS20712 eNw=44 

SENC 

SMCKFLESS PRee, 82 (eMX/AFS4) # SESSLEVEL «© ATR VELOCITY =90 

SIMPL TS WAWPRES ol AWESSe NSF eATSI0 eT yALPRASIE. pEXFRE1L00e eEXFCH2.26¢P 
LSE TSAITIL e TLETHAGN92%, ~LAIR=HN. e TALS S736 76 

WAME TSU CTA OPEV AC e De AED IND G5eLLIINNT=7, 

TTSZA Lee pe ESSE, pAANH se 247E WL IAC oe ce LINE, ESE CTs 

CPGS e434 S48, 6226 4 208 e245 2ET ee 2h 

SENC 

SMOKELESS FRee F& © 270N0 FIs. * TRROAT Crlae= 1.65 = AIP VELOCITY=9099 
STXSPLTO FxPO=H18. 8 ePE8A=2,1 820 TAL IH419 SF eATS 7S eo WAWPOSL 02. OnwAWFol. 2s 
Nw22¢,.ctner 

S¥*CKELESS PRee B & 27000 FT. * THROST CIAe= 168 @ ATR VELOCITY= £0 
SINPLTC ULAIR= SO0ee SENC 

SMOKELESS PReP & & 27900 THROAT CIAe= 1-5 x VELOCITY=1000 
SINPLITC VATP 210M .- SENS 

SMCKELESS PRcP F © 27080 THACAT veLccitys2anag 
SIMEL TO UAIR=e209006, SENT 

SMOKELESS P9er 2 « 27900 THROAT CIAs= 1-5 # : VELOCITY=4009 
€TNPL TA UAIR=4NN0.. SENC 


cere- LISTING 'EST CASES FOR sGaos 


Ese 

ATVAC L1NA SERTES ELT PROCESSCR LEVEL &A OT 11286241 OY OM TLESCAY, CECEYRED 1} 
AGT #2 GRAIN w 
BINSBLTP Cl. 822.4 
CELKF=-21,04 

A220 ,445=0,A€2=0,56=0 

TEHH4Q, e TK=1 C0 +e T7P=H40. 
PRCOPW.TtO2 1s PCCOMCPHEN2ZO. ePTRL aS, 27H 
PLS7TEN.s 

IFLAG=2 

sexuc 


62 CPTICN IFLAGS3 
22 SS .S1 7008 31.8989 .CL 29.1192 


Tes 
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NtvAc 1100 SERTES ELT FROCESSCP LEVEL 4A AT 11386242 AM ON TUESUAYs CFCEYSBES 1a, 1S 
) Li SMCKELESS ObGC,A(15%4P) ¥AIR VEL e=aSFA LEVELeTHACAT D21.UeCPTICN 2 
| Qe SINPLTS 
Se IFLAG=2 
Be CzL.4ESULCLEN.I2Z77, wHE2~3226, MH2.9034, O52,9112 
Se F1=760+eR1=0.0P=9, 
re MELKES<-17,67 
i Te AZS109.9AG=1900.+4E521900.-5E=10900, 
; Ae TSs<-f8a, *T6=S, 1773463, 
Se RT=0 oS eALPRAH15 6 eEXPR=H10,. eEXPCHA 26 ePEP ARN. TSS i JETHAISI., TYETSIAO4S3. 
10+ UATR=0.*TAIRS&3E,7 
lle WAWG TS eA eUe TS eV eb eM eB eV e dee IS ele dD 
12-6 TTS FAL 0 F456 0 6 2096, 24782 015260515085, 8 3607 
iz. CPES 4054 5405 62264 6 3086 2890 PAM 249 
: Lu. NTS7 TREE S069 
1 SENC 


¢ Uelll2 SECCNFS, 


erne CCMOTLEC LISTING PRCGRA™ SGOOS 


